100 REM   ***   PROGRAMM NR.1   ***
110 :
120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
130 CLS=938:PLOT=820
140 :
150 X0=160:Y0=100  :REM  MITTELPUNKT
160 XR=90 :YR=80   :REM  X & Y-RADIUS
170 :
180 POKE53265,59:POKE53272,24:PRINT"[147]"
190 SYS CLS
200 :
210 FORA=0TO90STEP.5
220 B=A*(null)/180
230 X=COS(B)*XR:Y=SIN(B)*YR
240 SYS PLOT,X0+X,Y0+Y
250 SYS PLOT,X0+X,Y0-Y
260 SYS PLOT,X0-X,Y0+Y
270 SYS PLOT,X0-X,Y0-Y
280 NEXTA
290 :
300 POKE198,0:WAIT198,1:GETA$
310 :
320 POKE53265,27:POKE53272,21
330 END
340 :